Imports System
Imports Microsoft.VisualBasic
  Partial Class recordInvoice_aspx_vb
    Inherits Functions
    
    Public RS As Object 
    Public strGrey As Object 
    Public rowNumber As Integer 
    Public subDo As String 
    Public companyID As Object 
    Public company As Object ' System.Object
    Public invoiceDate As Object 
    Public debitAccount As Object ' System.Object
    Public creditAccount As Object ' System.Object
    Public roundingAccount As Object ' System.Object
    Public taxAccount As Object ' System.Object
    Public countryCurrency As Object ' System.Object
    Public debitSubtotal As Object 
    Public creditSubtotal As Object 
    Public roundingSubtotal As Integer 
    Public taxSubtotal As Double 
    Public debitGrandtotal As Object 
    Public creditGrandtotal As Object 
    Public roundingGrandtotal As Integer 
    Public taxGrandtotal As Double 
    Public salestax As Object ' System.Object
    Public decimals As Object ' System.Object
    Public invoiceID As Object ' System.Object
    Public invoiceAmount As Object 
    Public partnerID As Object ' System.Object
    Public partnerName As Object ' System.Object
    Public regnr As Object 
    Public uw As Object ' System.Object
    Public uwDebitAccount As Object ' System.Object
    Public uwCreditAccount As Object ' System.Object
    Public uwGrandTotal As Object 
    Public uwSubTotal As Object 
    Public price As Object 
    Public oldPrice As Object 
    Public newPrice As Object 
    Public oldUw As Object ' System.Object
    Public newUw As Object ' System.Object
    Public invoicePriceListModificationID As Object ' System.Object
    Public uwDebitSubTotal As Object 
    Public uwCreditSubTotal As Double 
    Public uwCreditGrandTotal As Double 
    Public uwDebitGrandTotal As Object 
    Public invoiceCreditID As Object ' System.Object
    Public qInvoiceDate As String 
    Public rowCounter As Double 
    Public pageCounter As Integer 
    
    Public Function PageHeader() As Object
        If rowCounter = 6 Then 
            pageCounter = pageCounter + 1
            Response.Write("</table>")
            Response.Write("</p>")
            Response.Write("<p style='page-break-after: always'>")
            Response.Write("<table cellpadding='0' cellspacing='0' border='0' width='100%'>")
            Response.Write("<tr>")
            Response.Write("<td colspan='3' class='printBoldHeadline'>Invoice record</td>")
            Response.Write("<td colspan='2' align='right' class='printBoldHeadline'>" & company & "</td>")
            Response.Write("</tr>")
            Response.Write("<tr>")
            Response.Write("<td colspan='3' class='printBold'>Record draft up until " & qInvoiceDate & "</td>")
            Response.Write("<td colspan='2' align='right' class='printBold'>Page " & pageCounter & "</td>")
            Response.Write("</tr>")
            Response.Write("<tr><td colspan='5'><hr></td></tr>")
            Response.Write("<tr>")
            Response.Write("<td class='printBold'>Invoice date</td>")
            Response.Write("<td class='printBold'>Invoice ID</td>")
            Response.Write("<td class='printBold'>Customer</td>")
            Response.Write("<td class='printBold'>Invoice amount (" & countryCurrency & ")<br>Account</td>")
            Response.Write("<td align='right' class='printBold'>Amount (" & countryCurrency & ")</td>")
            Response.Write("</tr>")
            Response.Write("<tr><td colspan='5'><hr></td></tr>")
            rowCounter = 0
        Else
            Response.Write("<tr><td><br></td></tr>")
            rowCounter = rowCounter + 1
        End If
        Return Nothing
    End Function


  End Class
